home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / SmartWorks Demo / SmartWorksDemo / card_2838.txt < prev    next >
Encoding:
Text File  |  1990-08-13  |  1.1 KB  |  61 lines
  1. -- card: 2838 from stack: in
  2. -- bmap block id: 3134
  3. -- flags: 4000
  4. -- background id: 2675
  5. -- name: Begin Demo
  6.  
  7.  
  8. -- part 6 (button)
  9. -- low flags: 00
  10. -- high flags: 8003
  11. -- rect: left=105 top=310 right=336 bottom=221
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Begin Demo
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   set cursor to none
  23.   hide menubar
  24.   visual effect dissolve slow
  25.   go to card 2
  26.   wait 5 seconds
  27.   visual effect dissolve fast
  28.   go to card 3
  29.   repeat with n = 1 to 47
  30.     wait 15 ticks
  31.     go to next card
  32.   end repeat
  33.  
  34.   repeat with x = 1 to 29
  35.     visual effect dissolve slow
  36.     wait 7 seconds
  37.     go to next card
  38.   end repeat
  39. end mouseUp
  40.  
  41.  
  42.  
  43.  
  44. -- part 7 (button)
  45. -- low flags: 00
  46. -- high flags: 8003
  47. -- rect: left=306 top=309 right=335 bottom=424
  48. -- title width / last selected line: 0
  49. -- icon id / first selected line: 0 / 0
  50. -- text alignment: 1
  51. -- font id: 0
  52. -- text size: 12
  53. -- style flags: 0
  54. -- line height: 16
  55. -- part name: Quit Demo
  56. ----- HyperTalk script -----
  57. on mouseUp
  58.   doMenu Quit HyperCard
  59. end mouseUp
  60.  
  61.